home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / 3078B.ZIP / PGRUN991.ZIP / PATCH10.LSP < prev    next >
Lisp/Scheme  |  1991-08-29  |  2KB  |  71 lines
  1. ;***************************************************/
  2. ;%    ParaDraft  -  Source code (c) ALL RIGHTS RESERVED
  3. ;%           Copyright  1991 (c) ParaWare Systems, India
  4. ;%
  5. ;%
  6. ;%      PGINIT file for AutoCAD Release 10
  7. ;%      
  8. ;***************************************************/
  9.  
  10. ; Add the complete file without modifications into ACAD.LSP
  11. ; for loading it automatically
  12.  
  13. (setq *pgpg-shell* "PGSHELL")
  14.  
  15. (setq *pgpg-10* T)
  16.  
  17. (defun c:pgpg()
  18.  (load (strcat *pgpg-dir* "pgpg"))
  19. )
  20. (defun c:pgrun()
  21.  (Setq *pgpg-demo* nil
  22.        *pgpg-expert* nil
  23.        *pgpg-calmode* nil)
  24.  (load (strcat *pgpg-dir* "pgrun"))
  25.  (load (strcat *pgpg-dir* "pgcustom"))
  26. )
  27. (defun c:pgdemo()
  28.  (Setq *pgpg-demo* T
  29.        *pgpg-expert* T
  30.        *pgpg-calmode* "CALC")
  31.  (load (strcat *pgpg-dir* "pgrun"))
  32. )
  33. ;
  34. (setq *pg-menu* (strcase (getvar "MENUNAME")))
  35.  
  36. (defun c:pgmenu( / mnu pg-mnu)
  37.  (setq mnu (strcase (getvar "MENUNAME")))
  38.  (setq pg-mnu (strcase (strcat *pgpg-dir* "pgmenu")))
  39.  (if (= mnu pg-mnu)
  40.     (princ "\nParaDraft menu is already loaded")
  41.     (progn
  42.       (setq *pg-menu*  mnu)
  43.       (command ".MENU" pg-mnu)
  44.       (if c:pgpgset (menucmd "P2=P2b"))
  45.       (if *pgpg-demo* (menucmd "P7=P7b"))
  46.     )
  47.  )
  48.  (princ)
  49. )
  50.  
  51.  
  52. (defun slide-show( slides / slide )
  53. (Setvar "cmdecho" 0)
  54. (princ "ParaDraft information follows..")
  55.  (Foreach slide slides
  56.    (command "vslide" (strcat *pgpg-dir* "pgdraft(" (car slide) ")"))
  57.    (command "delay" (* 1000 (Cadr slide)))
  58.  )
  59. (getpoint "\nPress return to continue...")
  60. (command "redraw") 
  61. (princ "\nThank you for your attention.")
  62. (princ "\nFor more information take a printout of MANUAL file : ")
  63. (princ (strcase *pgpg-dir*))(princ"PGDRAFT.DOC")
  64.  (princ)
  65. )
  66. (command "vslide" (strcat *pgpg-dir* "pgdraft(welcome)"))
  67. (command "menu" (strcat *pgpg-dir* "pgmenu"))
  68. (princ)
  69.  
  70. ;     END OF  PGINIT file for AutoCAD Release 10
  71.